//---------------------------------------------------------------------------------------
GLOBAL

END

//---------------------------------------------------------------------------------------
PROCESS unidad()
//
// Maneja una unidad en el mapa
//

PRIVATE

	_point tpos;	// posicion en el scroll en tiles
	_point actual;	// posicion actual en pixels
	

END

BEGIN

	priority = 2;

	file = ts.fpg;
	graph = 10;
	size = TILE_SCALE;
	
	// posicion en scroll
	tpos.x = rand(0,30);
	tpos.y = rand(0,30);

	LOOP
	
		// posicion absoluta
		actual.x = (tpos.x * TILE_X) + TILE_X /2;
		actual.y = (tpos.y * TILE_Y) + TILE_Y /2;
		
		// actualizo posicion en pantalla
		x = actual.x - ts.pos.x;
		y = actual.y - ts.pos.y;
		
		frame;
		
	END

END
